########################################## TESTS DE CONNEXION A UN SALON DONNE #

################################################################################
# Procedure testant si on est connecte au salon du message recu en parametre
################################################################################
proc proc_connecteAuSalonMessage { param_messageRecu } {
	return [proc_connecteAuSalonId [proc_getSalonIdFromMessage $param_messageRecu]]
}

################################################################################
# Procedure testant si on est connecte au salon dont l'id est passe en parametre
################################################################################
proc proc_connecteAuSalonId { param_salonId } {
	# Recupere la liste des salons
	global var_listeSalons

	if { [info exist var_listeSalons($param_salonId)] == 1 } {
		return $var_listeSalons($param_salonId,connecte)
	} else {
		return 0	
	}
}

